C   IMSL ROUTINE NAME   - UGETIO                                        UGET0010
C                                                                       UGET0020
C-----------------------------------------------------------------------UGET0030
C                                                                       UGET0040
C   COMPUTER            - HP1000/SINGLE                                 UGET0050
C                                                                       UGET0060
C   LATEST REVISION     - JUNE 1, 1981                                  UGET0070
C                                                                       UGET0080
C   PURPOSE             - TO RETRIEVE CURRENT VALUES AND TO SET NEW     UGET0090
C                           VALUES FOR INPUT AND OUTPUT UNIT            UGET0100
C                           IDENTIFIERS.                                UGET0110
C                                                                       UGET0120
C   USAGE               - CALL UGETIO(IOPT,NIN,NOUT)                    UGET0130
C                                                                       UGET0140
C   ARGUMENTS    IOPT   - OPTION PARAMETER. (INPUT)                     UGET0150
C                           IF IOPT=1, THE CURRENT INPUT AND OUTPUT     UGET0160
C                           UNIT IDENTIFIER VALUES ARE RETURNED IN NIN  UGET0170
C                           AND NOUT, RESPECTIVELY.                     UGET0180
C                           IF IOPT=2, THE INTERNAL VALUE OF NIN IS     UGET0190
C                           RESET FOR SUBSEQUENT USE.                   UGET0200
C                           IF IOPT=3, THE INTERNAL VALUE OF NOUT IS    UGET0210
C                           RESET FOR SUBSEQUENT USE.                   UGET0220
C                NIN    - INPUT UNIT IDENTIFIER.                        UGET0230
C                           OUTPUT IF IOPT=1, INPUT IF IOPT=2.          UGET0240
C                NOUT   - OUTPUT UNIT IDENTIFIER.                       UGET0250
C                           OUTPUT IF IOPT=1, INPUT IF IOPT=3.          UGET0260
C                                                                       UGET0270
C   PRECISION/HARDWARE  - SINGLE/ALL                                    UGET0280
C                                                                       UGET0290
C   REQD. IMSL ROUTINES - NONE REQUIRED                                 UGET0300
C                                                                       UGET0310
C   NOTATION            - INFORMATION ON SPECIAL NOTATION AND           UGET0320
C                           CONVENTIONS IS AVAILABLE IN THE MANUAL      UGET0330
C                           INTRODUCTION OR THROUGH IMSL ROUTINE UHELP  UGET0340
C                                                                       UGET0350
C   REMARKS      EACH IMSL ROUTINE THAT PERFORMS INPUT AND/OR OUTPUT    UGET0360
C                OPERATIONS CALLS UGETIO TO OBTAIN THE CURRENT UNIT     UGET0370
C                IDENTIFIER VALUES. IF UGETIO IS CALLED WITH IOPT=2 OR  UGET0380
C                IOPT=3, NEW UNIT IDENTIFIER VALUES ARE ESTABLISHED.    UGET0390
C                SUBSEQUENT INPUT/OUTPUT IS PERFORMED ON THE NEW UNITS. UGET0400
C                                                                       UGET0410
C   COPYRIGHT           - 1978 BY IMSL, INC. ALL RIGHTS RESERVED.       UGET0420
C                                                                       UGET0430
C   WARRANTY            - IMSL WARRANTS ONLY THAT IMSL TESTING HAS BEEN UGET0440
C                           APPLIED TO THIS CODE. NO OTHER WARRANTY,    UGET0450
C                           EXPRESSED OR IMPLIED, IS APPLICABLE.        UGET0460
C                                                                       UGET0470
C-----------------------------------------------------------------------UGET0480
C                                                                       UGET0490
      SUBROUTINE UGETIO(IOPT,NIN,NOUT)                                  UGET0500
C                                  SPECIFICATIONS FOR ARGUMENTS         UGET0510
      INTEGER            IOPT,NIN,NOUT                                  UGET0520
C                                  SPECIFICATIONS FOR LOCAL VARIABLES   UGET0530
      INTEGER            NIND,NOUTD                                     UGET0540
      DATA               NIND/7/,NOUTD/6/                               UGET0550
C                                  FIRST EXECUTABLE STATEMENT           UGET0560
      IF (IOPT.EQ.3) GO TO 10                                           UGET0570
      IF (IOPT.EQ.2) GO TO 5                                            UGET0580
      IF (IOPT.NE.1) GO TO 9005                                         UGET0590
      NIN = NIND                                                        UGET0600
      NOUT = NOUTD                                                      UGET0610
      GO TO 9005                                                        UGET0620
    5 NIND = NIN                                                        UGET0630
      GO TO 9005                                                        UGET0640
   10 NOUTD = NOUT                                                      UGET0650
 9005 RETURN                                                            UGET0660
      END                                                               UGET0670
